home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 018a / amac41.zip / TIM006.QM < prev    next >
Text File  |  1991-08-02  |  4KB  |  128 lines
  1. *                               TIM006.QM
  2. *                        Written By Tom Hogshead
  3. *                       [ See TIMERxx.QM For Use ]
  4. *                            August 2, 1991
  5. *  Key    Subfile
  6. * =====  =========  =====================================================
  7. * @(n)            --Makes Files Needed For @1/@p/@r
  8. *     {e:\up\TIMER14}--Return To TIMERxx.QM
  9. *
  10. *--eoi
  11.  
  12. * 
  13. * ----------------------------------------------------------------------
  14. * @(n) Makes Files: Sequential Line Number File (001-999),  < $line#  >
  15. *                 : Zero Length File for Counting,          < 0k      >
  16. *                 : File to Select Number of Repeats/Cycle, < $repeat >
  17. *                   554 bytes Sun  07-07-1991  14:03:45 (TH @n)
  18. * ----------------------------------------------------------------------
  19.  
  20. * This macro makes files needed for @1, @p and @r which are included.
  21. * INSERT must be ON.
  22.  
  23. @n macrobegin
  24. *-- Make $line# file ---
  25.     editfile "$Line#" return
  26.     killfile quit
  27.     editfile return
  28.     addline 999
  29. *-- Indented portion of this macro was written by John Goodman to
  30. *   prepend line numbers in front of each line of text. Use of
  31. *   windows added by TH ...
  32.             UnmarkBlock
  33.             BegFile
  34.             OneWindow HorizontalWindow
  35.             EditFile "NUL" Return
  36.             DropAnchor
  37.             "0123456789"
  38.             Copy BegLine
  39.             Paste Paste
  40.             DropAnchor
  41.             EndLine CursorLeft
  42.             StoreScrBuff "1" Return
  43.             UnmarkBlock
  44.             PrevWindow
  45.             ShiftRight
  46.             "000"
  47.          MAINLOOP:
  48.             NextWindow
  49.             BegFile
  50.          LOOP:
  51.             DelCh
  52.             EndLine
  53.          JTrue INCR:
  54.             GetScrBuff "1" Return
  55.             UnmarkBlock
  56.             PrevWindow
  57.             BackSpace "0"
  58.             CursorLeft
  59.             NextWindow
  60.             CursorDown
  61.          Jump LOOP:
  62.          INCR:
  63.             BegLine
  64.             DropAnchor
  65.             PrevWindow
  66.             BackSpace
  67.             CopyBlock
  68.             BegLine
  69.             CursorDown
  70.          JFalse END:
  71.             ShiftRight
  72.             GetPrev GetPrev GetPrev
  73.          Jump MAINLOOP:
  74.          END:
  75.             UnmarkBlock
  76.             BegFile
  77.             NextWindow
  78.             Quit
  79.             PrevWindow
  80.             OneWindow
  81.         * 102 bytes Tue  06-04-1991  21:17:50 (JG)
  82. *--
  83.     endfile
  84.     backspace backspace backspace backspace
  85.     savefile                                            * Save $line# file
  86. *-- Make zero length file 0k ---
  87.     dos "rem>0k" return return                          * Make 0k file
  88. *-- Make $repeat file ---
  89.     editfile "$repeat" return
  90.     killfile quit
  91.     editfile return
  92.     addline "  1!"   gotocolumn "9" return  "  1"
  93.                      gotocolumn "17" return "  1 *" begline
  94.     addline "  5!"   gotocolumn "9" return  "  1"
  95.                      gotocolumn "17" return "  5 *" begline
  96.     addline " 50!"   gotocolumn "9" return  "  1"
  97.                      gotocolumn "17" return " 50 *" begline
  98.     addline "100!"   gotocolumn "9" return  "  2"
  99.                      gotocolumn "17" return "100 *" begline
  100.     addline "  ½k"   gotocolumn "9" return  "  1"
  101.                      gotocolumn "17" return "500" begline
  102.     addline "  1k"   gotocolumn "9" return  "  2"
  103.                      gotocolumn "17" return "500" begline
  104.     addline "  5k"   gotocolumn "9" return  " 10"
  105.                      gotocolumn "17" return "500" begline
  106.     addline " 10k"   gotocolumn "9" return  " 20"
  107.                      gotocolumn "17" return "500" begline
  108.     addline " 25k"   gotocolumn "9" return  " 50"
  109.                      gotocolumn "17" return "500" begline
  110.     addline " 50k"   gotocolumn "9" return  "100"
  111.                      gotocolumn "17" return "500" begline
  112.     addline "100k"   gotocolumn "9" return  "200"
  113.                      gotocolumn "17" return "500" begline
  114.     addline
  115.     gotocolumn "21" return
  116.     insertdate
  117.     inserttime
  118.     markline
  119.     begfile
  120.     shiftright
  121.     unmarkblock
  122.     begfile delline
  123.     savefile                                            * Save $repeat file
  124. *
  125. * 397 bytes Thu  06-20-1991  12:38:34 (TH @n)
  126. * 554 bytes Sun  07-07-1991  14:03:45 (TH @n, added 1/5/50/100 repeats)
  127.  
  128.